home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_SimpleTransaction_VBScript.asp < prev    next >
Encoding:
Text File  |  1998-05-29  |  1.7 KB  |  54 lines
  1. <%@ TRANSACTION = Required LANGUAGE = "VBScript" %>
  2.  
  3. <!*************************
  4. This sample is provided for educational purposes only. It is not intended to be 
  5. used in a production environment, has not been tested in a production environment, 
  6. and Microsoft will not provide technical support for it. 
  7. *************************>
  8.  
  9. <HTML>
  10.     <HEAD>
  11.         <TITLE>Simple Transactional Web Page</TITLE>
  12.     </HEAD>
  13.  
  14.     <BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
  15.         <!-- DISPLAY HEADER -->
  16.  
  17.         <FONT SIZE="4" FACE="ARIAL, HELVETICA">
  18.         <B>Simple Transactional Web Page</B></FONT><BR>      
  19.         <HR SIZE="1" COLOR="#000000">
  20.  
  21.  
  22.         <!-- Brief Description blurb.  -->
  23.  
  24.         This is a simple example demonstrating the basic
  25.         structure of a Transacted Web Page.  
  26.  
  27.     </BODY>
  28. </HTML>
  29.  
  30.  
  31. <%
  32.     ' The Transacted Script Commit Handler.  This sub-routine
  33.     ' will be called if the transacted script commits.
  34.     ' Note that in the example above, there is no way for the
  35.     ' script not to commit.
  36.  
  37.     Sub OnTransactionCommit()
  38.         Response.Write "<p><b>The Transaction just comitted</b>." 
  39.         Response.Write "This message came from the "
  40.         Response.Write "OnTransactionCommit() event handler."
  41.     End Sub
  42.  
  43.  
  44.     ' The Transacted Script Abort Handler.  This sub-routine
  45.     ' will be called if the script transacted aborts
  46.     ' Note that in the example above, there is no way for the
  47.     ' script not to commit.
  48.  
  49.     Sub OnTransactionAbort()
  50.         Response.Write "<p><b>The Transaction just aborted</b>." 
  51.         Response.Write "This message came from the "
  52.         Response.Write "OnTransactionAbort() event handler."
  53.     End Sub
  54. %>